home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / SIDTUNER2.SDA / SID TUNER V2.1 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  10KB  |  278 lines
  1. 100 PRINT"[147]":IFLD=0THENLD=1:GOSUB4600:LOAD"STEREO.MOD",8,1
  2. 200 IFLD<2THENLD=2:LOAD"BOX",8,1
  3. 220 DIMA$(144):DR=PEEK(45)+256*PEEK(46)-196
  4. 250 DIM CN$(24),MP(24),MX(24),MN(24),PH%(29,24):GOSUB4000
  5. 300 PRINT"[147] IS EXTRA SID CHIP[160]INSTALLED ?"
  6. 350 PRINT"ENTER 0 IF NONE":PRINT"      1 IF AT $DE00"
  7. 400 PRINT"      2 IF AT $DF00":PRINT"   1";:INPUT"[157][157][157]";N:LC=-(N>0)*(221+N)
  8. 500 SS=49167:POKE SS+4,LC:NR=16:V=53248:W=V+39:POKEV+29,7:POKEV,140:POKEV+1,215
  9. 600 DEF FNCL(C)=6*(C-1)-5*(C>3):T$="[157][145]HXBS+P*":POKE2040,14:PRINT"[147]"
  10. 700 POKE2041,15:POKE2042,13:POKEV+5,215:POKEV+4,188
  11. 800 DEF FNBT(X)=X-(X<0)*256:DEF FNSN(X)=X+(X>127)*256:REM POKE&PEEK SIGNED NUMS
  12. 900 DN=8:SA=780:SX=781:SY=782:SP=783:M1=49199:M2=253:S1=54270:S2=2539-256*(N=2)
  13. 1000 DEF FNCC(R)=55394+40*R:Z=SS+5:SF=2560-256*(N=2)
  14. 1100 FOR N=1TO24:READCN$(N),MP(N),MN(N),MX(N):NEXT
  15. 1200 DATA ATK,0,0,15,DCY,0,0,15,SUS,3,0,15,RLS,3,0,15,PNT,19,0,255,WAV,91,0,8
  16. 1210 DATA P-W,76,0,4095,P-S,70,-128,127,VDP,46,1,127,VRT,49,1,127
  17. 1300 DATA POR,25,0,16383,TPS,52,-95,95,DTN,58,-2048,2047,SNC,97,0,1,RNG,94,0,1
  18. 1310 DATA FLT,8,0,1,TEM,10,56,1800,VOL,9,0,15,F-M,9,1,7,AUT,82,-128,127
  19. 1312 DATA  RES,8,0,15,F-C,88,0,255,F-S,85,-128,127,3-0,9,0,1
  20. 1400 POKE53280,9:POKE53281,9:PRINT"[147][158]":GOSUB6000
  21. 1500 PRINT"[147][152]  LEFT CHANNEL          RIGHT CHANNEL":POKEV+39,8:POKEV+41,8
  22. 1520 PRINT" 1[146][183][183][183][183][183]2[146][183][183][183][183][183]3[146]          1[146][183][183][183][183][183]2[146][183][183][183][183][183]3"
  23. 1530 PRINT" [184]     [184]     [184]          [184]     [184]     [184][129]"
  24. 1540 FORR=1TO16:PRINTTAB(18)CN$(R):NEXT:GOSUB1600:GOTO2000
  25. 1600 PRINT"[129]    [175]                      [175]"
  26. 1650 PRINT"   [170]B[146][180]BREAKS OUT OF LOOP  [170]S[146][180]STAYS IN"
  27. 1700 PRINT"   [175][183]                      [183][175]"
  28. 1750 PRINT"  [170]X[146][180]ENDS SONG  SID TUNER [146] [170]H[146][180]GETS HELP"
  29. 1800 PRINT"  [175][183]                        [183]  [175]"
  30. 1900 PRINT" [170]+[146][180]DISPLAYS OTHER PARAMETERS [170]P[146][180]PRINTS[158]";:RETURN
  31. 2000 R=1:C=1:POKEV+21,7:POKEV+27,7:GOSUB2900:GOSUB3000:RX=1
  32. 2100 POKEV+40,0:RH=R:CH=C:R=RX:GOSUB7500:RX=R:R=RH:C=CH
  33. 2200 GOSUB3300:IFA=7THEN5400
  34. 2210 IFA=10THEN15000
  35. 2220 IFA=0THENGOSUB12000:GOTO2100
  36. 2230 ONAGOSUB7300,2300,2400,2500,2600,2700,3850,2750,2760,3850,2775,13000
  37. 2240 IFA=6ORA=11THEN1500
  38. 2250 GOTO2100
  39. 2300 IFC=NVTHENC=1:GOTO3000
  40. 2350 C=C+1:GOTO3000
  41. 2400 IFC=1THENC=NV:GOTO3000
  42. 2450 C=C-1:GOTO3000
  43. 2500 GOSUB3200:IFR=1THENR=NR:GOTO2900
  44. 2550 R=R-1:GOTO2900
  45. 2600 GOSUB3200:IFR=NRTHENR=1:GOTO2900
  46. 2650 R=R+1:GOTO2900
  47. 2700 POKEV+21,0:PRINT"[147]         SID TUNER INSTRUCTIONS"
  48. 2705 PRINT"USE CURSOR CONTROLS TO SELECT VOICE[164]&[164][164]  PARAMETER TO CHANGE. ";
  49. 2710 PRINT"THEN PRESS RETURN[146]  AND ENTER NEW VALUE.":BR$="      [164]"+CHR$(13)
  50. 2715 PRINTBR$"PRESS +[146] TO CHANGE SCREENS (THERE ARE TWO SCREENS, ONE FOR ";
  51. 2720 PRINT"VOICE PARAMS & ONE FOR CHANNEL PARAMS).":PRINTBR$"PRESS B[146] TO ";
  52. 2725 PRINT"BREAK OUT OF A HED-TAL LOOP.":PRINTBR$"PRESS S[146] TO STAY IN A ";
  53. 2730 PRINT"HED-TAL LOOP (IF    LOOP IS AT SAME POINTS IN EACH VOICE).":PRINTBR$;
  54. 2735 PRINT"PRESS P[146] TO PRINT OUT CURRENT SETTINGS.":PRINTBR$"PRESS X[146] TO ";
  55. 2740 PRINT"HALT MUSIC. THEN IF YOU WANT  YOU CAN START IT AGAIN (PARAMS RESET)."
  56. 2743 PRINT"               - - - - - -":PRINT"(FOR MORE DETAILED INSTRUCTIONS,";
  57. 2745 PRINT" PRESS[164]  RUN/STOP[146]/RESTORE[146], ENTER 'RUN', PRESS H[146])"
  58. 2747 GOTO6040
  59. 2750 T=1
  60. 2755 FORI=49315TOI+2:POKEI,T:NEXT:FORI=49571TOI+2:POKEI,T:NEXT:RETURN
  61. 2760 T=0:GOTO2755
  62. 2775 POKEV+21,0
  63. 2777 PRINT"[147]GET PRINTER READY, & ENTER A LABEL"
  64. 2780 INPUT"(OR 'A' TO ABORT PRINT)";A$
  65. 2785 IF A$="A"THENRETURN
  66. 2790 OPEN4,4:PRINT#4,A$:FORR=1TO16:PRINT#4,CN$(R);:FORC=1TONV:GOSUB20000
  67. 2793 PRINT#4,X;SPC(10-LEN(STR$(X)));:NEXT
  68. 2795 PRINT#4:NEXT:PRINT#4
  69. 2800 FORR=17TO24:PRINT#4,TAB(20)CN$(R);:FORC=3TONV-2:GOSUB17000
  70. 2820 PRINT#4,X;SPC(20-LEN(STR$(X)));:NEXT:PRINT#4:NEXT:PRINT#4:PRINT#4
  71. 2830 CLOSE4:RETURN
  72. 2900 CC=FNCC(R):FORCC=CCTOCC+3:POKECC,0:NEXT:POKEV+3,65+R*8:RETURN
  73. 3000 CC=23+8*FNCL(C):POKEV+2,CCAND255:IFCC>255THENPOKEV+16,2:RETURN
  74. 3100 POKEV+16,0:RETURN
  75. 3200 CC=FNCC(R):FORCC=CCTOCC+3:POKECC,8:NEXT:RETURN
  76. 3300 IFA$=CHR$(13)THENA=1:RETURN
  77. 3350 IF A$>"/"ANDA$<"3"THENA=0:RETURN
  78. 3400 FORA=1TOLEN(T$):IFA$=MID$(T$,A,1)THENA=A+1:RETURN
  79. 3500 NEXT:A=13:RETURN
  80. 3600 IFR=16THENMA=49208-M2*(C>3):RETURN
  81. 3610 MA=M1-M2*(C>3)+C+MP(R):IFR<5THENSL=S1-S2*(C>3)+7*C+INT(R/3):RETURN
  82. 3700 IF R=7 THENSL=54267-S2*(C>3)+7*C
  83. 3800 RETURN
  84. 3850 PRINT"[147]PROGRAM ERROR !!!  A="A:END
  85. 3900 POKE211,FNCL(C):POKE214,R+2:SYS58732:PRINT"     [157][157][157][157][157]"X:RETURN
  86. 4000 POKE53280,9:POKE53281,9:PRINTCHR$(142)"[147]";
  87. 4020 PRINT"[146][129]ucccccccccccccccccccccccccccccccccccccci";
  88. 4040 PRINT"b [158]uci[178][176]ci [176][178][174][178] [178][176]i[178][176]c[174][178]ci              [129]b";
  89. 4060 PRINT"[194] [158][202][195][201][194][194] [194]  [194] [194] [194][194][194][194][171][179] [171][178][203] VERSION 2.1  [129][194]";
  90. 4080 PRINT"b [158]jck[177][173]ck  [177] jck[177]j[189][177]c[189][177]jccccccccccccck [129]b";
  91. 4100 PRINT"jcccccccccccccccccccccccccccccccccccccck";
  92. 4120 PRINT"             [158]JOHN L. TURNER"
  93. 4140 PRINT"             [129][163][163][163][163] [163]  [163][163][163][163][163][163]"
  94. 4160 PRINT"                INCLUDES"
  95. 4180 PRINT"        SID STEREO PLAYER MODULE"
  96. 4200 PRINT"           COPYRIGHT (C) 1987"
  97. 4220 PRINT"          BY MARK A. DICKENSON"
  98. 4240 PRINT"  [164][164][164][164][164][164][164]SCREEN[164]DESIGN[164]J[164]A[164]GRAU[164][164][164][164][164][164][164]"
  99. 4260 PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  100. 4270 PRINT"        TO LOAD PATCHES, PRESS *[146]"
  101. 4280 PRINT"                                [164]"
  102. 4300 PRINT"      TO SEE A HELP FILE, PRESS H[146]"
  103. 4320 PRINT"        TO BEGIN, PRESS ANY KEY"
  104. 4400 GOSUB11500:IF A$="H"THENGOSUB4700:GOTO4000
  105. 4500 IFA$="*"THENGOSUB14500:GOTO4000
  106. 4550 RETURN
  107. 4600 PRINT"[147]  LOADING [158]PLAYER MODULE .....":RETURN
  108. 4700 PRINTCHR$(14)"[147][155]":OPEN2,8,2,"TUNERDOCS,S,R":NK=0
  109. 4800 INPUT#2,A$:IFA$="ND"THENGOSUB6040:CLOSE2:PRINTCHR$(142):NK=FRE(A$):RETURN
  110. 4900 PRINTA$:NK=NK+1:IFNK>22THENNK=0:GOSUB6040
  111. 5000 GOTO 4800
  112. 5100 PRINT"[151]<PRESS ANY KEY TO CONTINUE>[155]"
  113. 5200 GETX$:IFX$=""THENGOSUB5800:GOTO5200
  114. 5300 POKEV+40,0:RETURN
  115. 5400 POKEV+21,0:SYS49152:VV=54296:POKEVV,0:IFNTHENPOKEVV+SF,0:POKE211,0
  116. 5500 POKE214,22:SYS58732:PRINT"PRESS 'R'[146] TO REPLAY,'P'[146] TO PRINT VALUES,";
  117. 5510 PRINT"   '*'[146] TO LOAD OR SAVE PATCH FILES,"
  118. 5520 PRINT"   OR ANY KEY TO PLAY ANOTHER SONG     ";
  119. 5600 GOSUB11500:IF A$="R" THEN GOSUB 7000:GOTO1500
  120. 5610 IF A$="*"THENGOSUB14000:PRINT"[147]":GOTO5500
  121. 5620 IF A$="P"THEN GOSUB 2775:PRINT"[147]":GOTO 5500
  122. 5636 GOTO 1400
  123. 5800 IFTI>TXTHENTX=TI+5:L=6-6*(L<10):FORN=39TO41:POKEV+N,L:NEXT:RETURN
  124. 5900 RETURN
  125. 6000 INPUT"     FILENAME  $[157][157][157]";F$:IF F$<>"$"THEN6090
  126. 6010 SYSDR:E=PEEK(254):M=0:PRINT"[147] DISK: "A$(0)
  127. 6020 FORI=1TOE:AA$=A$(I):XT$=RIGHT$(AA$,4):IFXT$<>".MUS"ANDXT$<>".STR"THEN6030
  128. 6025 PRINTAA$:M=M+1:IFM>22THENM=0:GOSUB6040
  129. 6030 NEXT:GOSUB6040:M=FRE(A$):GOTO6000
  130. 6040 PRINTTAB(10)"PRESS ANY KEY TO CONTINUE[146]";:GOSUB11500:PRINT"[147]";:RETURN
  131. 6090 FL$=F$+".MUS":PRINT"CHECK LEFT CHANNEL = ";
  132. 6100 PRINT"  "FL$;:FORI=1TOLEN(FL$)+3:PRINT"[157]";:NEXT:INPUTFL$:IFLC=0THEN7200
  133. 6200 INPUT"IS THERE A RIGHT CHANNEL(Y/N)";Y$:IFY$="N"THENNV=3:GOTO6500
  134. 6300 FR$=F$+".STR":PRINT"RIGHT CHANNEL =   "FR$;:FORI=1TOLEN(FR$)+3:PRINT"[157]";
  135. 6400 NEXT:INPUTFR$:NV=6
  136. 6500 F$=FL$:LA=PEEK(49)+256*PEEK(50)+1000:PRINT"   LOADING: "F$
  137. 6600 HI=INT(LA/256):LO=LA-256*HI:POKESS,LO:POKESS+1,HI:GOSUB10200:IFPTHEN6000
  138. 6700 IFNV=3THEN7000
  139. 6800 F$=FR$:PRINT"   LOADING: "F$:HI=INT(LA/256):LO=LA-256*HI:POKE49169,LO
  140. 6900 POKE49170,HI:GOSUB10200:IFPTHEN6000
  141. 7000 SYS49155:POKE49172,7:IF NV=6 THEN POKE 49173,7:RETURN
  142. 7100 RETURN
  143. 7200 NV=3:GOTO6500
  144. 7300 R2=R+2:GOSUB8600
  145. 7400 GOSUB9600:GOSUB3900:GOSUB8650:GOSUB8700:GOTO 2900
  146. 7500 FOR R=RTONR:FORC=1TONV:GOSUB20000
  147. 8300 GOSUB3900:GETA$:IFA$<>""THENRETURN
  148. 8400 NEXT:IFPEEK(Z)+PEEK(Z+1)=0THENSYS49152:SYS49155:POKEZ,7:POKEZ-(LC>0),7
  149. 8500 NEXT:R=1:GOTO7500
  150. 8600 POKE211,15:POKE214,22:SYS58732:PRINT"           [157][157][157][157][157][157][157][157][157][157][157]"MN(R)
  151. 8610 POKE211,20:POKE214,22:SYS58732:PRINTMX(R)
  152. 8620 POKE211,FNCL(C):POKE214,R2:SYS58732:PRINT"      [157][157][157][157][157]";:RETURN
  153. 8650 POKE211,14:POKE214,22:SYS58732:PRINT" [129] SID TUNER [146][158]";:RETURN
  154. 8700 GOSUB3600:Y=PEEK(MA)
  155. 8800 ONRGOTO8900,9000,8900,9000,9500,9500,9100,9400,9500,9500,9100,9300,9400
  156. 8850 ONR-13GOTO9500,9500,9420
  157. 8900 X=X*16OR(YAND15):POKEMA,X:POKESL,X:RETURN
  158. 9000 X=XAND15OR(YAND240):POKEMA,X:POKESL,X:RETURN
  159. 9100 HI=INT(X/256):LO=X-256*HI:POKEMA,LO:POKEMA+3,HI:IFR<>7THENRETURN
  160. 9200 POKESL,LO:POKESL+1,HI:RETURN
  161. 9300 OC=-INT(X/12):NT=X+12*OC:POKEMA,FNBT(OC):POKEMA+3,FNBT(NT):RETURN
  162. 9400 X=X-(X<0)*65536:GOTO9100
  163. 9420 MA=49208-256*(C>3):Y=PEEK(MA):N=C+3*(C>3):IFX=0THEN9450
  164. 9430 X=YOR(2^(N-1)):GOTO18600
  165. 9440 POKEMA,X:RETURN
  166. 9450 ONNGOTO9460,9470,9480
  167. 9460 X=YAND254:GOTO18600
  168. 9470 X=YAND253:GOTO18600
  169. 9480 X=YAND251:GOTO18600
  170. 9500 POKEMA,FNBT(X):RETURN
  171. 9600 XX$="":POKEV+21,7
  172. 9700 GOSUB5200:IFX$=CHR$(13)THENX=VAL(XX$):POKEV+39,8:POKEV+41,8:GOTO10150
  173. 9800 IFASC(X$)=20ANDLEN(XX$)THENPRINT"[157] [157]";:XX$=LEFT$(XX$,LEN(XX$)-1):GOTO9700
  174. 9900 IFX$>"/"ANDX$<":"THENXX$=XX$+X$:PRINTX$;:GOTO9700
  175. 10000 IF LEN(XX$)=0ANDX$="-"THENXX$=X$:PRINTX$;:GOTO9700
  176. 10100 GOTO9700
  177. 10150 IFX>MX(R)THENX=MX(R):RETURN
  178. 10160 IFX<MN(R)THENX=MN(R)
  179. 10170 RETURN
  180. 10200 POKESA,1:POKE SX,DN:POKESY,0:SYS65466:GOSUB10600
  181. 10300 HI=INT(LA/256):LO=LA-256*HI
  182. 10400 POKESA,0:POKESX,LO:POKESY,HI:SYS65493:IFPEEK(SP)AND1GOTO10800
  183. 10500 LA=PEEK(SX)+256*PEEK(SY):P=0:RETURN
  184. 10600 FORK=1TO LEN(F$):POKE584+K,ASC(MID$(F$,K)):NEXT
  185. 10700 POKESA,LEN(F$):POKESX,73:POKESY,2:SYS65469:RETURN
  186. 10800 P=PEEK(SA):PRINT"ERROR:";:IFP=4THENPRINT"FILE NOT FOUND":RETURN
  187. 10900 IFP=5THENPRINT"DEVICE NOT PRESENT":RETURN
  188. 11000 PRINTST:END
  189. 11500 POKE198,0
  190. 11510 GETA$:IFA$=""THEN11510
  191. 11520 RETURN
  192. 12000 POKEV+40,2:B$=A$:GOSUB11500:IFA$>"9"ORA$<"0"THENRETURN
  193. 12010 B$=B$+A$
  194. 12040 P=VAL(B$):GOSUB3200:FORR=1TO16:X=PH%(P,R):IFX<MN(R)THENX=MN(R)
  195. 12045 IFX>MX(R)THENX=MX(R)
  196. 12050 GOSUB3900:GOSUB8700:NEXT:IFX=0THEN12300
  197. 12100 FORR=19TO23:X=PH%(P,R):MA=49200+MP(R):IFC>3THENMA=MA+256
  198. 12200 GOSUB18010:NEXT
  199. 12300 R=1:GOTO2900
  200. 13000 POKEV+40,1:GOSUB11500:IFA$<"0"ORA$>"2"THENRETURN
  201. 13100 B$=A$:GOSUB11500:IFA$<"0"ORA$>"9"THENRETURN
  202. 13150 B$=B$+A$
  203. 13200 GOSUB3200:P=VAL(B$):FORR=1TO16:GOSUB20000:PH%(P,R)=X:NEXT:IFX=0THEN13400
  204. 13300 FORR=19TO23:GOSUB17000:PH%(P,R)=X:NEXT
  205. 13400 POKE198,0:R=1:GOTO2900
  206. 14000 PRINT"[147]   S[146]AVE CURRENT PATCHES ?":PRINT"   OR L[146]OAD A PATCH FILE ?"
  207. 14200 GOSUB11500:PRINT"[147]":IFA$="S"THEN14400
  208. 14250 IFA$="L"THEN14500
  209. 14300 GOTO14000
  210. 14400 INPUT"  NAME FOR PATCH FILE";PF$:PF$=PF$+".PCH,S,W"
  211. 14405 INPUT"FROM PATCH #";F:INPUT"THROUGH #";T:IFT>29THENT=29
  212. 14410 OPEN15,8,15:OPEN1,8,1,PF$:GOSUB14900:IFETHENCLOSE1:CLOSE15:GOTO14400
  213. 14415 PRINT#1,T-F
  214. 14420 FORI=FTOT:FORJ=1TO24:PRINT#1,PH%(I,J):NEXT:NEXT:CLOSE1:CLOSE15:RETURN
  215. 14500 INPUT"[147]NAME OF PATCH FILE";PF$:PF$=PF$+".PCH,S,R"
  216. 14505 INPUT"LOAD TO START AT PATCH #";F
  217. 14510 OPEN15,8,15:OPEN2,8,2,PF$:GOSUB14900:IFETHENCLOSE2:CLOSE15:GOTO14500
  218. 14515 INPUT#2,L:T=F+L:IFT>29THENT=29
  219. 14520 FORI=FTOT:FORJ=1TO24:INPUT#2,PH%(I,J):NEXT:NEXT:CLOSE2:CLOSE15:RETURN
  220. 14900 INPUT#15,E,B$:IFETHENPRINTB$:GOSUB6040
  221. 14950 RETURN
  222. 15000 PRINT"[147][152]   LEFT CHANNEL         RIGHT CHANNEL":POKEV+39,8:POKEV+41,8
  223. 15020 PRINT"   [183][183][183][183][183][183][183][183][183]123[146]         123[146][183][183][183][183][183][183][183][183][183][183]
  224. 15030 [153]"           FREFREFRE         FREFREFREFOR"
  225. 15040 [129]R[178]17[164]24:[153][163]18)CN$(R):[130]
  226. 15045 [129]I[178]1[164]8:[153]:[130]:[141]1600
  227. 15110 R[178]17:C[178]3:[141]16900:[141]3000:CM[178]3[171](NV[177]3)
  228. 15120 RH[178]R:CH[178]C
  229. 15125 [129]R[178]17[164]24:[129]C[178]3[164]CM:[141]17000
  230. 15130 [141]15200:[161]A$:[139]A$[179][177]""[167]16000
  231. 15140 [130]:[139][194](Z)[170][194](Z[170]1)[178]0[167][158]49152:[158]49155:[151]Z,7:[151]Z[171](LC[177]0),7
  232. 15150 [130]:[137]15125
  233. 15200 [151]211,[165]CL(C):[151]214,R[171]14:[158]58732:[153]"     CMDCMDCMDCMDCMD"X:[142]
  234. 16000 R[178]RH:C[178]CH:[141]3300:[139]A[178]7[167]5400
  235. 16010 [139]A[178]10[167]1500
  236. 16020 [145]A[141]18000,16300,16300,16500,16600,2700,3850,2750,2760,3850,2775
  237. 16030 [139]A[178]6[176]A[178]11[167]15000
  238. 16040 [137] 15120
  239. 16300 [139]NV[178]3[167][142]
  240. 16350 C[178]4[170](C[178]4):[137]3000
  241. 16500 [141]16800:[139]R[178]17[167]R[178]24:[137]16900
  242. 16550 R[178]R[171]1:[137]16900
  243. 16600 [141]16800:[139]R[178]24[167]R[178]17:[137]16900
  244. 16650 R[178]R[170]1:[137]16900
  245. 16800 CC[178][165]CC(R[171]16):[129]CC[178]CC[164]CC[170]3:[151]CC,8:[130]:[142]
  246. 16900 CC[178][165]CC(R[171]16):[129]CC[178]CC[164]CC[170]3:[151]CC,0:[130]:[151]V[170]3,8[172]R[171]63:[142]
  247. 17000 MA[178]49200[170]MP(R):[139]C[178]4[167]MA[178]MA[170]256
  248. 17010 X[178][194](MA):[145]R[171]16[137]17020,20040,17040,17050,17060,20100,17050,17070
  249. 17020 [139]X[178]0[167]X[178]256
  250. 17025 X[178][181](14400[173]X):[142]
  251. 17040 X[178](X[175]112)[173]16:[142]
  252. 17050 X[178][165]SN(X):[142]
  253. 17060 X[178](X[175]240)[173]16:[142]
  254. 17070 X[178](X[175]128)[173]128:[142]
  255. 18000 R2[178]R[171]14:[141]8600:[141]9600:[141]8650:MA[178]49200[170]MP(R):[139]C[178]4[167]MA[178]MA[170]256
  256. 18010 Y[178][194](MA):[145]R[171]16[137]18100,18150,18200,18400,18350,18300,18400,18250
  257. 18100 [139] X[178]0[167]X[178]256
  258. 18110 X[178]([181](1800[173]X)[172]8)[175]255:[151]49210,X:[151]49466,X:[142]
  259. 18150 X[178](Y[175]240)[176]X:[137]18500
  260. 18200 X[178](Y[175]143)[176](X[172]16):[137]18500
  261. 18250 X[178](Y[175]127)[176](X[172]128):[137]18500
  262. 18300 [129]M[178]MA[164]MA[170]2:[151]M,X:[130]:[142]
  263. 18350 X[178](Y[175]15)[176](X[172]16):[137]18600
  264. 18400 X[178][165]BT(X):[129]M[178]MA[164]MA[170]2:[151]M,X:[130]:[142]
  265. 18500 [151]MA,X:[151]54296[171]SF[172](C[177]3),X:[142]
  266. 18600 [151]MA,X:[151]54295[171]SF[172](C[177]3),X:[142]
  267. 20000 [141]3600:X[178][194](MA)
  268. 20010 [145]R[137]20030,20040,20030,20040,20100,20100,20050,20060,20100,20100,20050
  269. 20020 [145]R[171]11[137]20070,20090,20100,20100,20080
  270. 20030 X[178](X[175]240)[173]16:[142]
  271. 20040 X[178]X[175]15:[142]
  272. 20050 X[178]X[170]256[172][194](MA[170]3):[142]
  273. 20060 X[178][165]SN(X):[142]
  274. 20070 X[178][171]12[172][165]SN(X)[170][165]SN([194](MA[170]3)):[142]
  275. 20080 MA[178]49208[171]256[172](C[177]3):X[178][194](MA):N[178]C[170]3[172](C[177]3):N[178]2[174](N[171]1):X[178][171]((X[175]N)[179][177]0):[142]
  276. 20090 X[178]X[170]256[172][194](MA[170]3):X[178]X[170](X[177]32767)[172]65536:[142]
  277. 20100 [142]
  278.